www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\admin_usergroup\D_chk_edit_group.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<%
AJAXshowLoader()
%>
<%
biao="[ND_userGroup]"
sys_content_type=trim(request("sys_content_type"))
if find_dataw("qitashezhi123","0",14)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
err1=0
if request("title")="" then
err1=1
%>
<script language="javascript">
alert("请填写用户组名称");
history.go(-1);
</script>
<%
end if
if request("dj")="" or isnumeric(request("dj"))=0 then
err1=1
%>
<script language="javascript">
alert("用户组等级必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("title2")="" or isnumeric(request("title2"))=0 then
err1=1
%>
<script language="javascript">
alert("发布文章增加的点数 必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("maxa")="" or isnumeric(request("maxa"))=0 then
err1=1
%>
<script language="javascript">
alert("每天可以发布多少篇文章 必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("titleb")="" or isnumeric(request("titleb"))=0 then
err1=1
%>
<script language="javascript">
alert("发布软件增加的点数 必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("maxb")="" or isnumeric(request("maxb"))=0 then
err1=1
%>
<script language="javascript">
alert("每天可以发布多少个软件 必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("titlec")="" or isnumeric(request("titlec"))=0 then
err1=1
%>
<script language="javascript">
alert("发布音乐,视频,图片增加的点数 必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("maxc")="" or isnumeric(request("maxc"))=0 then
err1=1
%>
<script language="javascript">
alert("每天可以发布多少个音乐,视频,图片 必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("titled")="" or isnumeric(request("titled"))=0 then
err1=1
%>
<script language="javascript">
alert("发布产品增加的点数");
history.go(-1);
</script>
<%
end if
if request("maxd")="" or isnumeric(request("maxd"))=0 then
err1=1
%>
<script language="javascript">
alert("每天可以发布多少个产品 必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("umaxd")="" or isnumeric(request("umaxd"))=0 then
err1=1
%>
<script language="javascript">
alert("每天可以上传多少个文件 必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("umaxd")="" or isnumeric(request("umaxd"))=0 then
err1=1
%>
<script language="javascript">
alert("每天可以上传多少个文件 必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("dmaxd")="" or isnumeric(request("dmaxd"))=0 then
err1=1
%>
<script language="javascript">
alert("每天下载软件数 必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("dld")="" or isnumeric(request("dld"))=0 then
err1=1
%>
<script language="javascript">
alert("每次登陆增加的点数 必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("xxdld")="" or isnumeric(request("xxdld"))=0 then
err1=1
%>
<script language="javascript">
alert("回复留言增加的点数 必须为数字且必填");
history.go(-1);
</script>
<%
end if
if request("sc")="" or isnumeric(request("sc"))=0 then
err1=1
%>
<script language="javascript">
alert("购物所享受的折扣 必须为数字且必填");
history.go(-1);
</script>
<%
end if
Function ChkNumeric(CHECK_ID)
IF CHECK_ID = "1" or CHECK_ID =1 Then
ChkNumeric = "1"
Else
ChkNumeric = "0"
End If
if CHECK_ID ="" then
ChkNumeric = "0"
end if
End Function
Function ChkFormStr(ByVal str)
Dim fString
fString = str
If IsNull(fString) Then
ChkFormStr = ""
Exit Function
End If
fString = Replace(fString, "'", "'")
fString = Replace(fString, Chr(34), """)
fString = Replace(fString, Chr(13), "")
fString = Replace(fString, Chr(10), "")
fString = Replace(fString, Chr(9), "")
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, " ", " ")
ChkFormStr = fString
End Function
Function Formatime(ByVal datime)
datime = Trim(Replace(Trim(datime), vbNewLine, ""))
If Not IsDate(datime) Then
Formatime = Now()
Exit Function
End If
If Len(datime) < 11 Then
Formatime = CDate(datime & " " & FormatDateTime(Now, 3))
Else
Formatime = CDate(datime)
End If
Exit Function
End Function
if err1=0 then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from "&biao&" where id="&request("id"),conn,1,3
rs("name")=request("title")
ssss=ChkNumeric(request("a1"))&","&ChkNumeric(request("a2"))&","&ChkNumeric(request("a3"))&"|"&ChkNumeric(request("a4"))&","&ChkNumeric(request("a5"))&","&ChkNumeric(request("a6"))&","&request("title2")&","&request("maxa")&","&ChkNumeric(request("aa1"))&"|"&ChkNumeric(request("b1"))&","&ChkNumeric(request("b2"))&","&ChkNumeric(request("b4"))&","&request("titleb")&","&request("maxb")&","&ChkNumeric(request("bb1"))&"|"&ChkNumeric(request("c1"))&","&ChkNumeric(request("c2"))&","&ChkNumeric(request("c4"))&","&request("titlec")&","&request("maxc")&","&ChkNumeric(request("cc1"))&"|"&ChkNumeric(request("d1"))&","&ChkNumeric(request("d2"))&","&ChkNumeric(request("d4"))&","&request("titled")&","&request("maxd")&","&ChkNumeric(request("dd1"))&"|"&ChkNumeric(request("u1"))&","&request("umaxd")&"|"&request("dmaxd")&"|"&request("dld")&","&request("xxdld")&","&request("sc")&","&ChkNumeric(request("isg"))&","&ChkNumeric(request("isgd"))&","&ChkNumeric(request("isgdxx"))
rs("settings")=ssss
rs.update
%>
<script language="javascript">
alert("修改成功");
self.location="D_admin_group.asp";
</script>
<%
end if
%>
<%
AJAXcloseLoader()
%>